plotly

Marriage vs Divorce count per state in Germany

library(plotly)

data <- read.csv("statistik.csv", sep=";")
data <- data[order(data$Eheschliessungen), ]

plot_ly(
  data,
  x = ~Eheschliessungen,
  y = ~Bundesland,
  name = "Marriage",
  type = 'bar',
  orientation = 'h'
) %>%
add_trace(
  x = ~Scheidungen,
  name = "Divorce",
  type = 'bar',
  orientation = 'h'
) %>%
layout(
  title = "Marriages vs divorces per state in Germany",
  xaxis = list(title = "Count"),
  yaxis = list(
    categoryorder = "array",
    categoryarray = ~Bundesland,
    title = "State"
  ),
  margin = list(l = 100)
)